home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Cream of the Crop 25
/
Cream of the Crop 25.iso
/
bbs
/
pcsuni1.zip
/
VRS502.ZIP
/
VRS-M4.PPE
(
.txt
)
< prev
next >
Wrap
PCBoard Programming Language Executable
|
1997-04-06
|
3KB
|
168 lines
;------------------------------------------------------------------------------
; .ss.
; `²²'
; .,sS$Ss,,s$ .,sS$$$Ss. .,sS$Ss,,s$ .ss. .sSs.
; .d$$²^°²$$$$'.d$P²°^^²$P'.d$$²^°²$$$$'.$$$' .$$$²Sb,.
; $$$' .$$$' $$$²Sçsµ²' .$$$' .$$$'.$$$' .$$$' `$$b.
; $$$b,,d$$$' ,$$$b,....,s$$$$b,,d$$$'.$$$;.,$$$' ;$$$
; `²S$$S²²S$$S²°²S$$$$S²°°²S$$$$$$',$$S²°²S$S'.sS$$$P²'
; .sS²°$$$²²°"' d²°'
; .$$² .$$'
; $$$.,d$$'
; `²S$$S²'
;------------------------------------------------------------------------------
; P.P.L.X. 2.OO (C)1996 - Lone Runner / AEGiS CoRP'96
;------------------------------------------------------------------------------
; PPE 3.2O (Encryption type I) - Analysis ON - Postprocessing ON
;------------------------------------------------------------------------------
Integer INTEGER001
Integer INTEGER002
String STRING001
String STRING002
String STRING003
String STRING004
String STRING005
String STRING006
;------------------------------------------------------------------------------
Goto LABEL001
End
If (0 == 0) STRING001 = "NO"
If (0 == 1) STRING001 = "YES"
EndFunc
:LABEL001
STRING002 = String(PcbNode())
If (PcbNode() == 0) STRING002 = "A"
STRING003 = GetEnv(STRING002 + "RECNO")
STRING003 = ToInteger(STRING003)
DOpen 0, PPEPath() + "USER.DBF", 0
DGo 0, STRING003
DTop 0
:LABEL002
DSkip 0, 1
If (DEof(0)) Goto LABEL003
If (DGet(0, "HITPTS_L") > 0) Goto LABEL002
If (DGet(0, "CASH") < 1) Goto LABEL002
If (DGet(0, "ONLINE") == "Y") Goto LABEL002
STRING004 = Trim(DGet(0, "HANDLE"), " ")
STRING004 = Mixed(STRING004)
INTEGER001 = DRecNo(0)
DGet 0, "CASH", INTEGER002
DGet 0, "FILE_NUM", STRING005
DPut 0, "CASH", 0
DPut 0, "WEAPN1", 0
DPut 0, "WEAPN2", 0
DPut 0, "S_W_NUMBER", 0
DPut 0, "WEAPT1", "NONE"
DPut 0, "WEAPT2", "NONE"
DPut 0, "S_W_NAME", "NONE"
DPut 0, "WEAPA1", 0
DPut 0, "WEAPA2", 0
DPut 0, "S_W_AMMO", 0
DPut 0, "WEAPD1", 0
DPut 0, "WEAPD2", 0
DPut 0, "S_W_DAMAGE", 0
DPut 0, "ARMOR_D", 0
DPut 0, "ARMOR_N", "NONE"
DGo 0, STRING003
DGet 0, "HANDLE", STRING006
DGo 0, INTEGER001
FAppend 1, PPEPath() + STRING005 + ".MSG", 2, 0
FPutLn 1, "@X0B" + Trim(Mixed(STRING006), " ") + "@X0E was nice enough to bring a few cells to the Robo-Medic@X0F"
FPutLn 1, "@X0Eafter finding you dead in the Turbo-Shafts, it seems that you have lost all of @X0F"
FPutLn 1, "@X0Eyour cash and weapons though. Better luck next time!"
FPutLn 1, "@X01≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡@X0F"
FClose 1
DGo 0, INTEGER001
Cls
Newlines 3
PrintLn "@X0E You come across a body splattered across the bulkhead, weapons scattered @X07"
PrintLn "@X0Eabout it. On closer inspection, you see that it was @X0B", STRING004, "@X0E,@X07"
PrintLn "@X0E and he was carrying an interesting assorment of weaponry. Not to mention@X07"
PrintLn "@X0E a total of@X0B ", INTEGER002, "@X0E in available credit.@X07"
PrintLn
PrintLn "@X0E Being the good samaritan that you are, you scrape up enough brain tissue@X07"
PrintLn "@X0E off the walls for the medics to reconstitute ", STRING004, ", figuring that by@X07"
PrintLn "@X0E selling @X0B", STRING004, "'@X0Bs @X0Eweapons and taking the cash you can cover your expenses.@X07"
PrintLn
DGo 0, STRING003
DPut 0, "CASH", DGet(0, "CASH") + INTEGER002
PrintLn
PrintLn "@X09 What a great person you are...@X07"
Newline
Call PPEPath() + "VRS-M19.PPE"
:LABEL003
DCloseAll
End
;------------------------------------------------------------------------------
;
; Usage report (before postprocessing)
;
; ■ Statements used :
;
; 2 End
; 1 Cls
; 6 Goto
; 9 Let
; 11 PrintLn
; 7 If
; 1 FAppend
; 1 FClose
; 4 FPutLn
; 1 Newline
; 1 Newlines
; 1 Call
; 1 EndFunc
; 1 DOpen
; 1 DCloseAll
; 1 DTop
; 5 DGo
; 1 DSkip
; 3 DGet
; 16 DPut
;
;
; ■ Functions used :
;
; 8 +
; 4 ==
; 1 <
; 1 >
; 2 Trim()
; 1 String()
; 3 PPEPath()
; 2 PcbNode()
; 1 GetEnv()
; 1 ToInteger()
; 2 Mixed()
; 1 DEof()
; 1 DRecNo()
; 5 DGet()
;
;------------------------------------------------------------------------------
;
; Analysis flags : C
;
; C - Call child PPE ■ 3
; This is usually normal, but may be a tricky way to launch some
; sysop-only commands.
; ■ Search for : CALL
;
;------------------------------------------------------------------------------
;
; Postprocessing report
;
; 0 For/Next
; 0 While/EndWhile
; 0 If/Then or If/Then/Else
; 0 Select Case
;
;------------------------------------------------------------------------------
; AEGiS Corp - Break the routines, code against the machines!
;------------------------------------------------------------------------------